home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 18 / AMIGAplus Sonderheft 18 (1999)(ICP)(DE)[!].iso / Forum / UweAllert / TesT / SetFlak next >
Text File  |  1998-12-10  |  2KB  |  119 lines
  1. ;SANDOKAN-SOFT SetFlak V1.0
  2. ;Ändern der Schutzbits von Dateien und Verzeichnissen.
  3.  
  4. Requestchoice >ENV:g "Flak setzen oder Entfernen" "Flag Setzen oder Entfernen" Setzen Entfernen Ende
  5. ENDIF
  6. IF $g EQ 1
  7. SETENV z=ADD
  8. SETENV i=gesetzt
  9. SETENV i1=Setze
  10. ENDIF
  11. IF $g EQ 2
  12. SETENV z=SUB
  13. SETENV i=entfernt
  14. SETENV i1=Entferne
  15. ENDIF
  16. IF $g EQ 0
  17. DELETE ENV:g >NIL:
  18. QUIT
  19. ENDIF
  20.  
  21. Requestchoice >ENV:v "$i1 Flag" "Bei Welchem Laufwerk soll das Flak $i werden?" DF0: DF1: RAM: DH0: ZIP: ENDE
  22. ENDIF
  23. IF $v EQ 1
  24. SETENV d=DF0
  25. ENDIF
  26. IF $v EQ 2
  27. SETENV d=DF1
  28. ENDIF
  29. IF $v EQ 3
  30. SETENV d=RAM
  31. ENDIF
  32. IF $v EQ 4
  33. SETENV d=DH0
  34. ENDIF
  35. IF $v EQ 5
  36. SETENV d=ZIP
  37. ENDIF
  38. IF $v EQ 0
  39. DELETE ENV:g >NIL:
  40. DELETE ENV:i >NIL:
  41. DELETE ENV:i1 >NIL:
  42. DELETE ENV:v >NIL:
  43. DELETE ENV:z >NIL:
  44. QUIT
  45. ENDIF
  46.  
  47. Requestchoice >ENV:q "$i1 Flag in $d:" "Welches Flag soll bei Laufwerk $d: $i werden?" A R W E D P S ENDE
  48. ENDIF
  49. IF $q EQ 1
  50. setENV x=A
  51. ENDIF
  52. IF $q EQ 2
  53. setENV x=R
  54. ENDIF
  55. IF $q EQ 3
  56. setENV x=W
  57. ENDIF
  58. IF $q EQ 4
  59. setENV x=E
  60. ENDIF
  61. IF $q EQ 5
  62. setENV x=D
  63. ENDIF
  64. IF $q EQ 6
  65. setENV x=P
  66. ENDIF
  67. IF $q EQ 7
  68. setENV x=S
  69. ENDIF
  70. IF $q EQ 0
  71. DELETE ENV:d >NIL:
  72. DELETE ENV:g >NIL:
  73. DELETE ENV:i >NIL:
  74. DELETE ENV:i1 >NIL:
  75. DELETE ENV:q >NIL:
  76. DELETE ENV:v >NIL:
  77. DELETE ENV:z >NIL:
  78. QUIT
  79. ENDIF
  80.  
  81. Requestchoice >ENV:h "Frage?" "Soll das $x-Flag bei ALLEN Dateien *nin Laufwerk $d: $i werden? *n *n      (Abruch durch CTRL+C)" JA ENDE
  82. ENDIF
  83. IF $h EQ 1
  84. ECHO $i1 das $x-Flak bei ALLEN Dateien in Laufwerk $d:"
  85. Wait 1
  86. Protect $d:#? $z $x ALL
  87. ENDIF
  88. IF $h EQ 0
  89. DELETE ENV:q >NIL:
  90. DELETE ENV:B >NIL:
  91. DELETE ENV:x >NIL:
  92. DELETE ENV:g >NIL:
  93. DELETE ENV:i >NIL:
  94. DELETE ENV:i1 >NIL:
  95. DELETE ENV:z >NIL:
  96. DELETE ENV:d >NIL:
  97. DELETE ENV:v >NIL:
  98. DELETE ENV:h >NIL:
  99. QUIT
  100. ENDIF
  101.  
  102. ECHO ""
  103. ECHO "$X-Flag bei Laufwerk $d: $i"
  104. ECHO ""
  105. ECHO "Fertig..."
  106. DELETE ENV:q >NIL:
  107. DELETE ENV:B >NIL:
  108. DELETE ENV:x >NIL:
  109. DELETE ENV:g >NIL:
  110. DELETE ENV:i >NIL:
  111. DELETE ENV:i1 >NIL:
  112. DELETE ENV:z >NIL:
  113. DELETE ENV:d >NIL:
  114. DELETE ENV:v >NIL:
  115. DELETE ENV:h >NIL:
  116. WAIT 10
  117. ENDCLI
  118.  
  119.